# name : Generates all combinations
# key : allcomb.
# contributor: Shuguang Sun
# --
data _null_;
   array x[5] $ ('ant' 'bee' 'cat' 'dog' 'ewe');
   n=dim(x);
   k=3;
   ncomb=comb(n, k);
   do j=1 to ncomb+1;
      call allcomb(j, k, of x[*]);
      put j 5. +3 x1-x3;
   end;
run;